Chip 2002 May/chip-cd_2002_05.zip/05/Dom i biuro/Mr Faktury Pro 1.53/mr_faktury_pro.exe/0/RCDATA/TFDLUGI_TERMIN/TFDLUGI_TERMIN.txt

Text File | 2002-03-27 | 6KB | 257 lines

object fDlugi_termin: TfDlugi_termin
  Left = 357
  Top = 296
  BorderStyle = bsSingle
  Caption = 'D'#322'ugi do sp'#322'aty w terminie'
  ClientHeight = 219
  ClientWidth = 430
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lFirma: TLabel
    Left = 40
    Top = 160
    Width = 27
    Height = 13
    Caption = 'lFirma'
  end
  object Label1: TLabel
    Left = 0
    Top = 160
    Width = 28
    Height = 13
    Caption = 'Firma:'
  end
  object Label2: TLabel
    Left = 0
    Top = 176
    Width = 74
    Height = 13
    Caption = 'Ca'#322'o'#347#263' d'#322'ugu : '
  end
  object lSuma: TLabel
    Left = 148
    Top = 176
    Width = 35
    Height = 13
    Alignment = taRightJustify
    Caption = 'lSuma'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object sbData: TSpeedButton
    Left = 176
    Top = 200
    Width = 65
    Height = 17
    Hint = 'Sortuj wed'#322'ug daty'
    GroupIndex = 1
    Down = True
    Caption = 'wg Daty'
    ParentShowHint = False
    ShowHint = True
    OnClick = sbDataClick
    OnMouseUp = sbDataMouseUp
  end
  object sbSymbol: TSpeedButton
    Left = 256
    Top = 200
    Width = 65
    Height = 17
    Hint = 'Sortuj wed'#322'ug symbolu faktury'
    GroupIndex = 1
    Caption = 'wg symbolu'
    ParentShowHint = False
    ShowHint = True
    OnClick = sbSymbolClick
    OnMouseUp = sbSymbolMouseUp
  end
  object dbg: TDBGrid
    Left = 0
    Top = 0
    Width = 425
    Height = 152
    DataSource = ds
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'data'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'symbol_faktury'
        Title.Caption = 'symbol faktury'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'do_zaplaty'
        Title.Caption = 'suma zap'#322'aty'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zaplacono'
        Title.Caption = 'ju'#380' zap'#322'acono'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'suma'
        Title.Caption = 'jescze do zap'#322'aty'
        Visible = True
      end>
  end
  object bDrukuj: TButton
    Left = 8
    Top = 192
    Width = 75
    Height = 25
    Caption = '&Drukuj'
    TabOrder = 1
    OnClick = bDrukujClick
  end
  object bPrzerwij: TButton
    Left = 88
    Top = 192
    Width = 75
    Height = 25
    Caption = '&Przerwij'
    TabOrder = 2
    Visible = False
  end
  object bWyjdz: TBitBtn
    Left = 352
    Top = 192
    Width = 75
    Height = 25
    Caption = '&Wyjd'#378
    TabOrder = 3
    OnClick = bWyjdzClick
  end
  object ds: TDataSource
    DataSet = mt
    OnDataChange = dsDataChange
    Left = 64
    Top = 56
  end
  object mt: TkbmMemTable
    Active = True
    DesignActivation = True
    AttachedAutoRefresh = True
    AttachMaxCount = 1
    FieldDefs = <
      item
        Name = 'nazwa_firmy'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'data'
        DataType = ftDateTime
      end
      item
        Name = 'numer_firmy'
        DataType = ftInteger
      end
      item
        Name = 'numer_dostawa'
        DataType = ftInteger
      end
      item
        Name = 'do_zaplaty'
        DataType = ftCurrency
      end
      item
        Name = 'zaplacono'
        DataType = ftCurrency
      end
      item
        Name = 'suma'
        DataType = ftCurrency
      end>
    IndexDefs = <>
    SortOptions = []
    AllDataOptions = [mtfSaveData, mtfSaveNonVisible, mtfSaveBlobs, mtfSaveFiltered, mtfSaveIgnoreRange, mtfSaveIgnoreMasterDetail, mtfSaveDeltas]
    CommaTextOptions = [mtfSaveData]
    CSVQuote = '"'
    CSVFieldDelimiter = ','
    CSVRecordDelimiter = ','
    CSVTrueString = 'True'
    CSVFalseString = 'False'
    PersistentSaveOptions = [mtfSaveData, mtfSaveNonVisible, mtfSaveIgnoreRange, mtfSaveIgnoreMasterDetail]
    PersistentBackup = False
    ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
    FilterOptions = []
    Version = '2.53b'
    LanguageID = 0
    SortID = 0
    SubLanguageID = 1
    LocaleID = 1024
    Left = 104
    Top = 56
    object mtnazwa_firmy: TStringField
      DisplayWidth = 60
      FieldName = 'nazwa_firmy'
      Size = 60
    end
    object mtdata: TDateTimeField
      FieldName = 'data'
    end
    object mtsymbol_faktury: TStringField
      FieldKind = fkCalculated
      FieldName = 'symbol_faktury'
      Size = 15
      Calculated = True
    end
    object mtnumer_firmy: TIntegerField
      FieldName = 'numer_firmy'
    end
    object mtnumer_dostawa: TIntegerField
      FieldName = 'numer_dostawa'
    end
    object mtdo_zaplaty: TCurrencyField
      FieldName = 'do_zaplaty'
    end
    object mtzaplacono: TCurrencyField
      FieldName = 'zaplacono'
    end
    object mtsuma: TCurrencyField
      FieldName = 'suma'
    end
  end
  object frRaport: TfrReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    OnGetValue = frRaportGetValue
    Left = 368
    Top = 160
    ReportForm = {18000000}
  end
  object frDBDataSet: TfrDBDataSet
    DataSource = ds
    OnFirst = frDBDataSetFirst
    Left = 400
    Top = 160
  end
end